This is just a diversion from serious scripts, all it does is change the
Desktop background every 30 seconds.
/* RandomBackground.dopus5 */
options results
signal on halt
address command 'Copy Extras/#?.iff T:'
if ~show('l','rexxsupport.library') then
call addlib('rexxsupport.library',,-30)
address 'DOPUS.1'
dopus query background main
oldmain = result
pattern = 'T:#?.iff'
do forever
dopus set background '"'pattern'"' custom
dopus refresh background custom
call delay(1500)
end
halt:
dopus refresh background
address command 'Delete T:#?.iff QUIET'
exit
Hit this button to stop it, your background will revert to normal
when it goes to change it again.
|
